home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / IDSWORLD.CMD < prev    next >
Encoding:
Text File  |  1996-02-08  |  1.5 KB  |  75 lines
  1. #
  2. #  Trumpet Winsock login script for the IDS World Network.
  3. #  Written by Bob Fayne - support@ids.net - (800) IDS-1680 x 11.
  4. #  Copyright (c) 1995 InteleCom Data Systems - all rights reserved.
  5. #
  6. #  This requires v2.0b (or higher) of Trumpet Winsock.
  7. #
  8. #
  9. # set up some strings for dialling up in case setup.cmd
  10. # wasn't run
  11. #
  12. if ![load $number]
  13.   if [query $number "Please enter your local IDS dialup number"]
  14.     save $number
  15.   end
  16. end
  17. #
  18. $modemsetup = "&C1E1Q0S2=43M1L2"
  19. #
  20. %attempts = 99
  21. #
  22. #----------------------------------------------------------
  23. #
  24. # initialize modem
  25. #
  26. display \n
  27. display "Now connecting you to the IDS World Network."\n
  28. display "Please stand by..."\n
  29. display \n
  30. #
  31. output "atz"\13
  32. if ! [input 10 OK\n]
  33.   display "Modem is not responding."\n
  34.   abort
  35. end
  36. #
  37. # setup our modem commands
  38. #
  39. output "at"$modemsetup\13
  40. input 10 OK\n
  41. #
  42. # send phone number
  43. #
  44. %n = 0
  45. repeat
  46.   %n = %n + 1
  47.   if %n >= %attempts
  48.         display "Too many dial attempts."\n
  49.         abort
  50.   end
  51.   outputecho 30 "atdt"$number\r
  52.   %timeout = [read 70 $result]
  53.   if ! %timeout
  54.     display "Dial up timed out."\n
  55.     abort
  56.   end
  57. sleep 1
  58. until $result >= "CONNECT"
  59. #
  60. #  wait till it's safe to send because some modem's hang up
  61. #  if you transmit during the connection phase
  62. #
  63. wait 30 dcd
  64. #
  65. # now prod the terminal server
  66. #
  67. display \n
  68. display \n
  69. display "--> Connected.  Your IP address will be set automatically in a few seconds."\n
  70. display "--> Thank you for flying IDS."\n
  71. display \n
  72. #
  73. # now we are finished.
  74. #
  75.